<HTML><HEAD><TITLE>All_About_Your_64-Online-Help Version 0.64</TITLE></HEAD>
<BODY><PRE>

 $F875/63605:   Common Tape Code

Jump from <A HREF="ROMF841.HTM">$F862</A>:

F875: A0 7F     <A HREF="BLDY.HTM">LDY</A> #$7F
F877: 8C 0D DC  <A HREF="BSTY.HTM">STY</A> <A HREF="CIA113.HTM">$DC0D</A>     ; CIA1: Interrupt (IRQ) Control Register
F87A: 8D 0D DC  <A HREF="BSTA.HTM">STA</A> <A HREF="CIA113.HTM">$DC0D</A>     ; CIA1: Interrupt (IRQ) Control Register
F87D: AD 0E DC  <A HREF="BLDA.HTM">LDA</A> <A HREF="CIA114.HTM">$DC0E</A>     ; CIA1: Control Register A
F880: 09 19     <A HREF="BORA.HTM">ORA</A> #$19
F882: 8D 0F DC  <A HREF="BSTA.HTM">STA</A> <A HREF="CIA115.HTM">$DC0F</A>     ; CIA1: Control Register B
F885: 29 91     <A HREF="BAND.HTM">AND</A> #$91
F887: 8D A2 02  <A HREF="BSTA.HTM">STA</A> <A HREF="ZP02A2.HTM">$02A2</A>     ; TOD sense during Tape I/O
F88A: 20 A4 F0  <A HREF="BJSR.HTM">JSR</A> <A HREF="ROMF0A4.HTM">$F0A4</A>     ; Serial Bus Idle
F88D: AD 11 D0  <A HREF="BLDA.HTM">LDA</A> <A HREF="VIC17.HTM">$D011</A>     ; VIC: Control Register 1
F890: 29 EF     <A HREF="BAND.HTM">AND</A> #$EF
F892: 8D 11 D0  <A HREF="BSTA.HTM">STA</A> <A HREF="VIC17.HTM">$D011</A>     ; VIC: Control Register 1
F895: AD 14 03  <A HREF="BLDA.HTM">LDA</A> <A HREF="ZP0314.HTM">$0314</A>     ; Vector: Hardware IRQ Interrupt Address
F898: 8D 9F 02  <A HREF="BSTA.HTM">STA</A> <A HREF="ZP029F.HTM">$029F</A>     ; Temp. store for IRQ Vector during Tape I/O
F89B: AD 15 03  <A HREF="BLDA.HTM">LDA</A> <A HREF="ZP0314.HTM">$0315</A>     ; Vector: Hardware IRQ Interrupt Address
F89E: 8D A0 02  <A HREF="BSTA.HTM">STA</A> <A HREF="ZP029F.HTM">$02A0</A>     ; Temp. store for IRQ Vector during Tape I/O
F8A1: 20 BD FC  <A HREF="BJSR.HTM">JSR</A> <A HREF="ROMFCB8.HTM">$FCBD</A>     ; Set IRQ Vector
F8A4: A9 02     <A HREF="BLDA.HTM">LDA</A> #$02
F8A6: 85 BE     <A HREF="BSTA.HTM">STA</A> <A HREF="ZPBE.HTM">$BE</A>       ; Tape Input/Output Block count
F8A8: 20 97 FB  <A HREF="BJSR.HTM">JSR</A> <A HREF="ROMFB97.HTM">$FB97</A>     ; New Character Setup
F8AB: A5 01     <A HREF="BLDA.HTM">LDA</A> <A HREF="ZP01.HTM">$01</A>       ; 6510 On-chip 8-bit Input/Output Register
F8AD: 29 1F     <A HREF="BAND.HTM">AND</A> #$1F
F8AF: 85 01     <A HREF="BSTA.HTM">STA</A> <A HREF="ZP01.HTM">$01</A>       ; 6510 On-chip 8-bit Input/Output Register
F8B1: 85 C0     <A HREF="BSTA.HTM">STA</A> <A HREF="ZPC0.HTM">$C0</A>       ; Tape Motor Switch
F8B3: A2 FF     <A HREF="BLDX.HTM">LDX</A> #$FF

Jump from $F8BB:

F8B5: A0 FF     <A HREF="BLDY.HTM">LDY</A> #$FF

Jump from $F8B8:

F8B7: 88        <A HREF="BDEY.HTM">DEY</A>
F8B8: D0 FD     <A HREF="BBNE.HTM">BNE</A> $F8B7
F8BA: CA        <A HREF="BDEX.HTM">DEX</A>
F8BB: D0 F8     <A HREF="BBNE.HTM">BNE</A> $F8B5
F8BD: 58        <A HREF="BCLI.HTM">CLI</A>

Jump from $F8CD:

F8BE: AD A0 02  <A HREF="BLDA.HTM">LDA</A> <A HREF="ZP029F.HTM">$02A0</A>     ; Temp. store for IRQ Vector during Tape I/O
F8C1: CD 15 03  <A HREF="BCMP.HTM">CMP</A> <A HREF="ZP0314.HTM">$0315</A>     ; Vector: Hardware IRQ Interrupt Address
F8C4: 18        <A HREF="BCLC.HTM">CLC</A>
F8C5: F0 15     <A HREF="BBEQ.HTM">BEQ</A> <A HREF="ROMF8D0.HTM">$F8DC</A>     ; Check Tape Stop
F8C7: 20 D0 F8  <A HREF="BJSR.HTM">JSR</A> <A HREF="ROMF8D0.HTM">$F8D0</A>     ; Check Tape Stop
F8CA: 20 BC F6  <A HREF="BJSR.HTM">JSR</A> <A HREF="ROMF69B.HTM">$F6BC</A>     ; Bump Clock
F8CD: 4C BE F8  <A HREF="BJMP.HTM">JMP</A> $F8BE

    <A HREF="ROMF864.HTM">Previous Page</A> / <A HREF="ROMF8D0.HTM">Next Page</A>

</PRE></BODY></HTML>
